What PC? 1998 July/WPCJUL98.ISO/DXRS/BUYERS07.DXR/acrobat loader_5.ls

Text File | 1998-05-11 | 806 b | 27 lines

on checkAcrobatRunning Exename
  repeat with t = 1 to the number of chars in Exename
    if char t of Exename = "." then
      set howmany to t
      exit repeat
    end if
  end repeat
  set shortexename to char 1 to howmany - 1 of Exename
  put "shortexename", shortexename
  set tasklistStore to gMasterAppObject(mGetTaskList)
  repeat with t = 1 to the number of lines in tasklistStore
    set taskLinet to line t of tasklistStore
    put "taskLinet", taskLinet
    repeat with d = 1 to the number of chars in taskLinet
      if char d of taskLinet = "," then
        set howmany to d
        exit repeat
      end if
    end repeat
    set tasknamet to char 1 to howmany - 1 of taskLinet
    if tasknamet = shortexename then
      set HANACRORunning to 1
      exit repeat
    end if
  end repeat
end